home *** CD-ROM | disk | FTP | other *** search
/ Dos/V Magazine 1995 October 15 / CD [VMAG951015].bin / _demo / prowres / shared.dxr / 01503_ÉnÉìÉhÉâÉ-ÉbÉvÉAÉbÉvÉÅÉjÉÖÅ[.ls < prev    next >
Encoding:
Text File  |  1995-08-07  |  973 b   |  51 lines
  1. global npopon
  2.  
  3. on mpopmenu01a
  4.   mspriteset(41, 1, 1, 0, the number of cast "PopBoard01a", 10, 462)
  5. end
  6.  
  7. on mpopmenu01b
  8.   mspriteset(42, 1, 1, 0, 61, 58, 459)
  9. end
  10.  
  11. on mpopmenu01c
  12.   mspriteset(42, 1, 1, 0, 61, 108, 459)
  13. end
  14.  
  15. on mpopmenu01d
  16.   mspriteset(42, 1, 1, 0, 61, 158, 459)
  17. end
  18.  
  19. on mpopmenu01e
  20.   mspriteset(42, 1, 1, 0, 61, 208, 459)
  21. end
  22.  
  23. on mpopmenuchk
  24.   if rollOver(41) then
  25.     mpopmenuchka()
  26.   else
  27.     if the mouseV <= 458 then
  28.       set npopon to 0
  29.     end if
  30.   end if
  31. end
  32.  
  33. on mpopdel01a
  34.   set the type of sprite 41 to 0
  35.   set the type of sprite 42 to 0
  36. end
  37.  
  38. on mpopmenuchka
  39.   if (npopon = 1) and ((10 < the mouseH) and (the mouseH < 130)) then
  40.     if (420 < the mouseV) and (the mouseV < 440) then
  41.       mspriteset(42, 1, 1, 0, the number of cast "PopBar01a", 10, 420)
  42.     else
  43.       if (440 < the mouseV) and (the mouseV < 460) then
  44.         mspriteset(42, 1, 1, 0, the number of cast "PopBar01a", 10, 440)
  45.       else
  46.       end if
  47.     end if
  48.   else
  49.   end if
  50. end
  51.